home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / adlip.arj / CSOUND.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-04-21  |  1.3 KB  |  75 lines
  1. ;    CSOUND.ASM
  2. ;
  3. ; interface to resident sound-driver for LATTICE C compiler, LARGE model.
  4. ;
  5. ; 87/03/18 Ad Lib.
  6. ; 88/04/21 Ad Lib Inc.
  7. ;
  8. ; 
  9.     INCLUDE DOS.MAC            ; memory models ...
  10.     INCLUDE DEFS.MAC        ; equates & sound-driver version proc.
  11.  
  12.  
  13.  
  14.     PSEG
  15.  
  16.     INCLUDE VERSION.MAC        ; sound-driver signature
  17.  
  18.     public    GetSoundDrvVersion
  19.  
  20.  
  21. ;
  22. ;    unsigned GetSoundDrvVersion()
  23. ;        if the sound-driver is charged in memory, return his
  24. ;        version number, else 0.
  25. ;
  26.     DrvVersionProc GetSoundDrvVersion
  27.  
  28.  
  29.  
  30.  
  31. ;    int SoundCall( functionNumber, arg_list)
  32. ;        int functionNumer;
  33. ;        any... arg_list
  34. ;
  35. ;    Generate interrupt to sound-driver with parameter's address
  36. ;    in ES:BX and function number in SI
  37. ;
  38. ;     Only registers AX, BX, CX & DX are lost.
  39.  
  40. BEGIN SoundCall
  41.  
  42. sframe    STRUC
  43.         dw    ?        ; old SI ( if using optimizing compiler ... )
  44.         dw    ?        ; old DI
  45.         dw    ?        ; old ES
  46.         dw    ?        ; old BP
  47.         db    CPSIZE DUP (?)    ; return addr
  48. args        dw    ?
  49. others        dw    ?        ; other arguments, if any
  50. sframe    ENDS    
  51.  
  52.     push    bp
  53.     push    es
  54.     push    di
  55.     push    si
  56.  
  57.     mov    bp, sp
  58.     mov    si, [ bp].args        ; get function number
  59.     lea    bx, [ bp].others    ; get pointers to other args...
  60.     push    ss
  61.     pop    es
  62.     int    sound_driver_int    ; call sound-driver ... return in AL, if any
  63.  
  64.     pop    si
  65.     pop    di
  66.     pop    es
  67.     pop    bp
  68.     ret
  69. SoundCall    ENDP
  70.  
  71.  
  72.     ENDPS
  73.     end
  74.  
  75.